home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Install / program files / Borland / BDS / 3.0 / Objrepos / DelphiDotNet / WebService.asmx.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-10-22  |  1.9 KB  |  90 lines
  1. [!outputon]
  2. unit [!UnitName];
  3.  
  4. interface
  5.  
  6. uses
  7.   System.Collections, System.ComponentModel,
  8.   System.Data, System.Diagnostics, System.Web,
  9.   System.Web.Services;
  10.  
  11. type
  12.   /// <summary>
  13.   /// Summary description for [!ClassName].
  14.   /// </summary>
  15.   T[!ClassName] = class(System.Web.Services.WebService)
  16.   {$REGION 'Designer Managed Code'}
  17.   strict private
  18.     /// <summary>
  19.     /// Required designer variable.
  20.     /// </summary>
  21.     components: IContainer;
  22.     /// <summary>
  23.     /// Required method for Designer support - do not modify
  24.     /// the contents of this method with the code editor.
  25.     /// </summary>
  26.     procedure InitializeComponent;
  27.   {$ENDREGION}
  28.   strict protected
  29.     /// <summary>
  30.     /// Clean up any resources being used.
  31.     /// </summary>
  32.     procedure Dispose(disposing: boolean); override;
  33.   private
  34.     { Private Declarations }
  35.   public
  36.     constructor Create;
  37.     (*
  38.     // Sample Web Service Method
  39.     [WebMethod]
  40.     function HelloWorld: string;
  41.     *)
  42.   end;
  43.  
  44. implementation
  45.  
  46. {$REGION 'Designer Managed Code'}
  47. /// <summary>
  48. /// Required method for Designer support - do not modify
  49. /// the contents of this method with the code editor.
  50. /// </summary>
  51. procedure T[!ClassName].InitializeComponent;
  52. begin
  53.  
  54. end;
  55. {$ENDREGION}
  56.  
  57. constructor T[!ClassName].Create;
  58. begin
  59.   inherited;
  60.   //
  61.   // Required for Designer support
  62.   //
  63.   InitializeComponent;
  64.   //
  65.   // TODO: Add any constructor code after InitializeComponent call
  66.   //
  67. end;
  68.  
  69. /// <summary>
  70. /// Clean up any resources being used.
  71. /// </summary>
  72. procedure T[!ClassName].Dispose(disposing: boolean);
  73. begin
  74.   if disposing and (components <> nil) then
  75.     components.Dispose;
  76.   inherited Dispose(disposing);
  77. end;
  78.  
  79. // Sample Web Service Method
  80. // The following method is provided to allow for testing a new web service.
  81. (*
  82. function T[!ClassName].HelloWorld: string;
  83. begin
  84.   Result := 'Hello World';
  85. end;
  86. *)
  87.  
  88. end.
  89.  
  90.